home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Intuition / Gadgets.asm next >
Assembly Source File  |  1990-11-10  |  2KB  |  137 lines
  1. *
  2. *    Gadgets.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file has the glue routines for the procedures and functions
  6. *    defined in Include/Intuition/Intuition.i having to do with
  7. *    Gadgets
  8. *
  9.  
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _p%IntuitionBase
  14.  
  15.     XDEF    _ActivateGadget
  16.     XREF    _LVOActivateGadget
  17. _ActivateGadget
  18.     move.l    4(sp),a2
  19.     move.l    8(sp),a1
  20.     move.l    12(sp),a0
  21.     move.l    _p%IntuitionBase,a6
  22.     jsr    _LVOActivateGadget(a6)
  23.     tst.l    d0
  24.     sne    d0
  25.     rts
  26.  
  27.     XDEF    _AddGadget
  28.     XREF    _LVOAddGadget
  29. _AddGadget
  30.     move.w    4(sp),d0
  31.     move.l    6(sp),a1
  32.     move.l    10(sp),a0
  33.     move.l    _p%IntuitionBase,a6
  34.     jmp    _LVOAddGadget(a6)
  35.  
  36.     XDEF    _AddGList
  37.     XREF    _LVOAddGList
  38. _AddGList
  39.     move.l    4(sp),a2
  40.     move.w    8(sp),d1
  41.     move.w    10(sp),d0
  42.     move.l    12(sp),a1
  43.     move.l    16(sp),a0
  44.     move.l    _p%IntuitionBase,a6
  45.     jmp    _LVOAddGList(a6)
  46.  
  47.     XDEF    _ModifyProp
  48.     XREF    _LVOModifyProp
  49. _ModifyProp
  50.     movem.l    d2/d3/d4/a2,-(sp)
  51.     move.w    20(sp),d4
  52.     move.w    22(sp),d3
  53.     move.w    24(sp),d2
  54.     move.w    26(sp),d1
  55.     move.w    28(sp),d0
  56.     move.l    30(sp),a2
  57.     move.l    34(sp),a1
  58.     move.l    38(sp),a0
  59.     move.l    _p%IntuitionBase,a6
  60.     jsr    _LVOModifyProp(a6)
  61.     movem.l    (sp)+,d2/d3/d4/a2
  62.     rts
  63.  
  64.     XDEF    _NewModifyProp
  65.     XREF    _LVONewModifyProp
  66. _NewModifyProp
  67.     movem.l    d2/d3/d4/d5/a2,-(sp)
  68.     move.l    24(sp),d5
  69.     move.w    28(sp),d4
  70.     move.w    30(sp),d3
  71.     move.w    32(sp),d2
  72.     move.w    34(sp),d1
  73.     move.w    36(sp),d0
  74.     move.l    38(sp),a2
  75.     move.l    42(sp),a1
  76.     move.l    46(sp),a0
  77.     move.l    _p%IntuitionBase,a6
  78.     jsr    _LVONewModifyProp(a6)
  79.     movem.l    (sp)+,d2/d3/d4/d5/a2
  80.     rts
  81.  
  82.     XDEF    _OffGadget
  83.     XREF    _LVOOffGadget
  84. _OffGadget
  85.     move.l    4(sp),a2
  86.     move.l    8(sp),a1
  87.     move.l    12(sp),a0
  88.     move.l    _p%IntuitionBase,a6
  89.     jmp    _LVOOffGadget(a6)
  90.  
  91.     XDEF    _OnGadget
  92.     XREF    _LVOOnGadget
  93. _OnGadget
  94.     move.l    4(sp),a2
  95.     move.l    8(sp),a1
  96.     move.l    12(sp),a0
  97.     move.l    _p%IntuitionBase,a6
  98.     jmp    _LVOOnGadget(a6)
  99.  
  100.     XDEF    _RefreshGadgets
  101.     XREF    _LVORefreshGadgets
  102. _RefreshGadgets
  103.     move.l    4(sp),a2
  104.     move.l    8(sp),a1
  105.     move.l    12(sp),a0
  106.     move.l    _p%IntuitionBase,a6
  107.     jmp    _LVORefreshGadgets(a6)
  108.  
  109.     XDEF    _RefreshGList
  110.     XREF    _LVORefreshGList
  111. _RefreshGList
  112.     move.w    4(sp),d0
  113.     move.l    6(sp),a2
  114.     move.l    10(sp),a1
  115.     move.l    14(sp),a0
  116.     move.l    _p%IntuitionBase,a6
  117.     jmp    _LVORefreshGList(a6)    
  118.  
  119.     XDEF    _RemoveGadget
  120.     XREF    _LVORemoveGadget
  121. _RemoveGadget
  122.     move.l    4(sp),a1
  123.     move.l    8(sp),a0
  124.     move.l    _p%IntuitionBase,a6
  125.     jmp    _LVORemoveGadget(a6)
  126.  
  127.     XDEF    _RemoveGList
  128.     XREF    _LVORemoveGList
  129. _RemoveGList
  130.     move.w    4(sp),d0
  131.     move.l    6(sp),a1
  132.     move.l    10(sp),a0
  133.     move.l    _p%IntuitionBase,a6
  134.     jmp    _LVORemoveGList(a6)
  135.  
  136.     END
  137.